Chicago_Map_HBH

infant_mortality_map <- ggplot() +
  geom_sf(data = chicago_health_map, aes(fill = Infant.Mortality.Rate)) +
  scale_fill_continuous(type = "viridis") +
  geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))

## Warning: Ignoring unknown aesthetics: text

ggplotly(infant_mortality_map, tooltip = "desc")

teen_birth_rate_map <- ggplot() +
  geom_sf(data = chicago_health_map, aes(fill = Teen.Birth.Rate)) +
  scale_fill_continuous(type = "viridis") +
  geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))

## Warning: Ignoring unknown aesthetics: text

ggplotly(teen_birth_rate_map, tooltip = "desc")

poverty_level_map <- ggplot() +
  geom_sf(data = chicago_health_map, aes(fill = Below.Poverty.Level)) +
  scale_fill_continuous(type = "viridis") +
  geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))

## Warning: Ignoring unknown aesthetics: text

ggplotly(poverty_level_map, tooltip = "desc")

unemployment_map <- ggplot() +
  geom_sf(data = chicago_health_map, aes(fill = Unemployment)) +
  scale_fill_continuous(type = "viridis") +
  geom_point (data = hbh_df, alpha = 8/10, aes(x = Long, y = Lat, text = desc))

## Warning: Ignoring unknown aesthetics: text

ggplotly(unemployment_map, tooltip = "desc")